﻿Public Class form_部件工具

    Private parts As DataTable = buildPartsTable() '部件表
    Private Function buildPartsTable() As DataTable
        Dim dt As New DataTable("part_table")
        With dt
            With .Columns
                .Add("id").Caption = "ID"
                .Add("name").Caption = "名称"
                .Add("code").Caption = "编码"
                .Add("sx").Caption = "sx"
                .Add("sy").Caption = "sy"
                .Add("sz").Caption = "sz"

                .Add("rx").Caption = "rx"
                .Add("pr").Caption = "ry"
                .Add("rz").Caption = "rz"

            End With
        End With
        Return dt
    End Function










    Private Sub form_部件工具_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        dgv_parts.DataSource = parts
    End Sub


End Class